home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / expand53.zip / XPDEMO.ZIP / XPCOLOR.PRG < prev    next >
Text File  |  1992-08-17  |  754b  |  25 lines
  1. * ------------------------------------------------------------------------
  2. * Module......:    XPCOLOR.PRG
  3. * Title.......: Color part of the Expand Library Demonstration Program
  4. * Author......:    Pepijn Smits.
  5. * Date........:    July/August 1992
  6. * Copyright...:    (c)1992 by Softwarebureau Pepijn Smits
  7. * Notes.......:    Clipper 5.01 Demo of the Expand Library
  8. * ------------------------------------------------------------------------
  9.  
  10. Static lColor := .f.
  11.  
  12. Init Function InitColor()
  13. lColor := (isColor()  .and. At('/BW',Upper(XPcommandLine()))=0)
  14. Return (NIL)
  15.  
  16. Function NormColor
  17. SetColor(if(lColor,'W+/B,W+/N,,GR+/B,GR+/N',''))
  18. XPcolor()
  19. Return (NIL)
  20.  
  21. Function MenuColor
  22. SetColor(if(lColor,'n/w,w+/r,,r/w,gr+/r',''))
  23. XPcolor()
  24. Return (NIL)
  25.